#!/usr/bin/perl
#file simple_get.pl

use LWP::Simple;

my $url = shift;
getprint($url);

=pot
事实上甚至可以将程序减少为以下命令：
perl -MLWP::Simple -e 'getprint shift' http://www.baidu.com/r/wt
=cut